COMMENT ⊗   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	 Helps close files that are randomly open
C00005 ENDMK
C⊗;
;;; Helps close files that are randomly open
(declare (fasload util fas dsk (aid rpg)))

(macrodef real-tyi ()
 (while (me`≠E∃d@QieSaKK,R@NPDf\@b@\RRA⊃↑@QieRRR@!isRR$~∀~∀!IKGY¬eJ@QMaKGS¬XAGY=gJ[M%YJ[gQCeh[¬IIeKMfRR~(~∀Qg∃ibAG1←gJ[→SYJ[MiCeh5CIIe∃gf@Q≥KiIIQgsZ@≥GQ]iλRR~∀lQG←]⊂@PQgQCikf↓MKCiUeKfA=]KgK≥[K]h$~∀f@@@@@QG←]⊂@PQgQCikf↓MKCiUeKfAACOS]≤R~∀v$@@@@@QgKQbAGY=cB[M%YJ[gQCeh[¬IIeKMf@bhd\RR~(v∩@@@@QhQgKiDAGY←MJ[MS1J[gi¬ehKC⊃IeKgL@bb`8RRRR4∀v@@@@@QP@QG←9H@PQMiCiKβ→β≠↔∂#WK↔~β∪∪QJ↓#O↔'	β∂3␈≠∃7≠L¬F*o>L↔↔"\≤F'⊗↑:2β3εBbrJ⊃Q#XJ∧∧ααα∧¬π"α∞<W'
8
}y+9M≥→+<nL<]⊗Xp212\yP_\L↔∀TTJTFEεB∀22s≥w⊂1f≠yry⊂
∀BE⊂
4∧et dile ← niL 
α      end ← (+ close-file-stard
a`dreqs 1↔,)¬
      lh
A≡QgiCQkfAY%][←I∀RAI↑4∀@@@@@QgMiCiKβ→β3'vk?∪∃εs'1$hQ↓↓↓α↓↓#∪z↓!#%∧≠3 ?<UV6NLUW∨&≡.Bn∞LN&/∨4¬β
Z
∃∩JHQ!∩αα¬βRεJXLE(≥
!Q@∧P⊂
9rz8H34v"H∀6zw~pvP∀→|0vt[2P4TJTFE∧H⊂⊂0w→⊂34`,e
	       (no@P@Q[K5EKd@≥ii`%αC∂πIαCOSπ'+Eβ≠L¬F.n|LRε6≥HRJJ∃⊃P@J∧∧ααα∧¬ππ⊗|⎇bαGL↑'π⊗∃⊃PPH∀∧ααα∧¬ππ⊗≥l2ε6≥HRHh!⊃∩αα∧∧ααG∞-⊗v~∧␈Bαjλ9F␈≡T
FFO4	vv+tλ∂¬⊃"B"$∧λλλ∧¬≠93,,<H
∞,8;.O8∧TP	T≤≤Wλ_Y_G
TTFEαP⊂⊂⊂λ⊂⊂∀8≤5sw
1v7yYP34`,e) (terpri)  princ File) (priNc '| closed!|))))¬
      (sstatqs Linmo@⊃JAYZ$~∀@@@@@QQKeae$R~∧@@@@@≥I←]J$R@@@4∀∩∧Q⊃KEk\αβ∂3?≡+π31αA$4)αC3↔Q∧3'3∃¬yβ+'b4)↓α↓↓↓β,¬f"¬t¬αZε=Iw∞
\h
-L+<⎇≡]8,L≤Y<n4-kE⊃ ¬⊂⊂λ⊂⊂⊂2≠FA⊂⊂λ⊂⊂⊂∀→7P∀∀~P1v /qa-fIle-start-addresq  ⊂B,ARRR$~∀%α↓!!u∧Iβ↔≠ ¬∩π"⊃Q Jα¬∞6/'∀fNfT¬εo.m<⊗jαα→0≤_vpw2H4TTTCE	  (afddile
	       (not (ma`≠E∃`	↓∨'#e↓8λ.$
≤⎇≡≥<hM;→;-|→(⊃M≥→**%∃!"B$∧λλλ∧∧
≤≤M|{H
=≠|y$X;⊃%∀λ∧:2\αpri) (princ f@%YJR@!aeC]@G`1∧∧6f@|y0∩λ|⊂TTJF@
      (ter`!β∪%$Q$ααα∧∧α>&⎇lRJJ∧∧hP